home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_121_(06-1985).d64
/
ham antennas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
4KB
|
121 lines
1 REM"HAM ANTENNAS BY RAK ELECTRONICS PO BOX 1585 ORANGE PARK, FL 32073"
100 POKE53280,1:POKE53281,1:PRINT"[147][144] ***HAM ANTENNAS***"
110 PRINTTAB(10)"A - GROUND PLANE"
120 PRINTTAB(10)"B - YAGI"
130 PRINTTAB(10)"C - DIPOLE"
140 PRINTTAB(10)"D - DELTA LOOP BEAM"
150 PRINTTAB(10)"SELECT A, B, C OR D"
160 GETB$:IFB$=""THEN160
170 IFB$="A"THEN1000
180 IFB$="B"THEN2000
190 IFB$="C"THEN3000
195 IFB$="D"THEN4000
200 GOTO100
1000 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
1001 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1120 PRINT" ENTER THE DESIGN FREQUENCY IN MHZ"
1125 INPUT F
1130 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
1131 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1140 PRINTTAB(14)"FOR"F"MHZ"
1150 H=936/F*.28:H=INT(H*100+.5)/100
1160 R=1.05*H:R=INT(R*100+.5)/100
1170 PRINT"THE VERTICAL RADIATOR RADIATOR SHOULD BE"H"FT."
1190 PRINT"THE RADIALS SHOULD BE"R"FT."
1210 PRINT"THE IMPEDANCE MAY VARY WITH THE DIAMETER"
1220 PRINT"OF THE RADISTOR. TRY CHANGING THE LENGTH"
1225 PRINT"OF THE RADIATOR TO MATCH THE FEED LINE."
1230 GOSUB5000
1240 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
1241 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1250 FORI=1TO10:PRINTTAB(20)"[182][181]":NEXT
1260 PRINTTAB(9)"[145][145][145][145][145][145]RADIATOR":PRINTTAB(9)H"FT."
1270 PRINTTAB(11)"[163][163][163][163][163][163][163][163][163][208][207][163][163][163][163][163][163][163][163][163]"
1275 PRINTTAB(9)"RADIALS":PRINTTAB(9)R"FT"
1280 GOSUB5000
1281 GOTO100
2000 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
2010 PRINT"WHAT IS THE OPERATING FREQUENCY IN MHZ"
2030 INPUT F
2040 IF F<1.8THEN2060
2050 GOTO2070
2060 PRINT"THAT FREQ IS OUTSIDE THE HAM BANDS":GOTO2020
2070 IF F<109THEN2100
2080 V=234:GOTO 2110
2100 V=126+F
2110 S=V/F
2120 S=INT(S*100+.5)/100
2130 L=2*S:R=500/F
2140 R=INT(R*100+.5)/100
2150 D=475/F
2160 D=INT(D*100+.5)/100
2170 H=455/F
2180 H=INT(H*100+.5)/100
2200 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
2205 PRINTTAB(14)"FOR"F"MHZ."
2210 PRINT" DIMENSIONS OF THE 3 ELEMENT WIDE SPACED YAGI ARE:"
2220 PRINT" OVERALL BOOM LENGTH IS"L"FT."
2230 PRINT" SPACING OF ELEMENTS IS"S"FT."
2240 PRINT" THE FEED POINT Z AT"F"MHZ WILL BE"
2250 PRINT"[160]ABOUT 35 OHMS AND THE GAIN ABOUT 7.5"
2255 PRINT" DB. THE F/B RATIO WILL BE UP TO 30 DB."
2260 GOSUB5000
2270 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
2275 PRINTTAB(14)"FOR"F"MHZ."
2280 PRINTTAB(5)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2290 PRINTTAB(7)"DIRECTOR"
2300 PRINTTAB(6)H"FT.[145][145]"
2310 FORI=1TO14:PRINTTAB(20)" [146]":NEXT
2320 PRINTTAB(4)"[145][145][145][145][145][145][145][145][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2330 PRINTTAB(7)"DRIVEN":PRINTTAB(6)D"FT."
2340 PRINTTAB(3)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2350 PRINTTAB(7)"REFLECTOR":PRINTTAB(6)R"FT."
2360 PRINTTAB(23)"[145][145][145][145][145][145][145][145][145][145][145][145][145]BOOM":PRINTTAB(22)L"FT."
2380 GOSUB5000
2385 GOTO100
3000 PRINT"[147]"TAB(10)"***DIPOLE ANTENNA***"
3010 PRINT" INPUT THE DESIGN FREQUENCY IN MHZ."
3020 INPUTF
3030 N=7:L=468/F:R=L*30.48:L=INT(L*100+.5)/100:U=L/2:V=R/2
3040 PRINT"[147]"TAB(10)"***DIPOLE ANTENNA***"
3045 PRINTTAB(14)"FOR"F"MHZ."
3050 PRINT" TOTAL LENGTH IS"L"FT."
3070 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
3080 PRINT" LENGTH OF EACH LEG IS"U"FT."
3100 GOSUB5000
3110 GOTO100
4000 PRINT"[147]"TAB(9)"**DELTA LOOP ANTENNA**"
4010 PRINT" INPUT THE DESIGN FREQUENCY IN MHZ.":INPUTF
4020 R=1030/F:T=R/3:D=1005/F:E=D/3:S=984/F*.2
4021 T=INT(T*100+.5)/100:E=INT(E*100+.5)/100:S=INT(S*100+.5)/100
4030 PRINT"[145][145][145]THE DELTA LOOP BEAM ANTENNA HAS 2"
4032 PRINT"ELEMENTS USING 3/4 INCH ALUMINUM TUBING"
4035 PRINT"FOR THE SIDE LEGS AND #12 COPPER WIRE"
4040 PRINT"FOR THE TOP. THE FEED POINT CAN BE TO"
4042 PRINT"EITHER LEG OF THE DRIVEN ELEMENT. A"
4045 PRINT"GAMMA TYPE FEED SYSTEM GIVES THE BEST"
4050 PRINT"PERFORMANCE."
4065 PRINT"MEASUREMENTS FOR"F"MHZ ARE:"
4070 PRINT"DRIVEN ELEMENT[146]":PRINT" TOP="E"FT.":PRINT" SIDE="E"FT."
4075 PRINT"REFLECTOR ELEMENT[146]":PRINT" TOP="T"FT.":PRINT" SIDE="T"FT."
4080 PRINT"BOOM LENGTH="S"FT."
4090 GOSUB5000
4100 PRINT"[147]"TAB(9)"**DELTA LOOP ANTENNA**"
4105 PRINTTAB(14)"FOR"F"MHZ."
4110 PRINTTAB(6)"REFLECTOR"TAB(26)"DRIVEN"
4115 PRINTTAB(5)T"FT."TAB(25)E"FT."
4117 PRINTTAB(6)"EACH SIDE"TAB(26)"EACH SIDE"
4120 PRINTTAB(5)"[175][175][175][175][175][175][175][175][175][175]"TAB(25)"[175][175][175][175][175][175][175][175][175][175]"
4130 PRINTTAB(5)"[205] [206]"TAB(25)"[205] [206]"
4135 PRINTTAB(5)" [205] [206]"TAB(25)" [205] [206]"
4140 PRINTTAB(5)" [205] [206]"TAB(25)" [205] [206]"
4145 PRINTTAB(5)" [205] [206]"TAB(25)" [205] [206]"
4150 PRINTTAB(5)" [205][206]"TAB(25)" [205][206]"
4155 PRINTTAB(10)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
4160 PRINTTAB(14)"BOOM"S"FT."
4170 GOSUB5000
4180 GOTO100
5000 PRINTTAB(14)"HIT ANY KEY"
5001 GETA$:IFA$=""THEN5001
5002 RETURN